## Warning in graph_from_data_frame(co_auth_edge1 %>% dplyr::group_by(source, : In `d' `NA'
## elements were replaced with string "NA"
## Warning in graph_from_data_frame(co_auth_edge2 %>% dplyr::group_by(source, : In `d' `NA'
## elements were replaced with string "NA"